﻿#Region "License & Usage"

'Microsoft Public License (Ms-PL) 

'This license governs use of the accompanying software. If you use the 
'software, you accept this license. If you do not accept the license, do 
'not use the software. 

'1. Definitions 

'The terms "reproduce," "reproduction," "derivative works," and 
'"distribution" have the same meaning here as under U.S. copyright law. 

'A "contribution" is the original software, or any additions or changes 
'to the software. 

'A "contributor" is any person that distributes its contribution under 
'this license. 

'"Licensed patents" are a contributor's patent claims that read directly 
'on its contribution. 

'2. Grant of Rights 

'(A) Copyright Grant- Subject to the terms of this license, including the 
'license conditions and limitations in section 3, each contributor grants 
'you a non-exclusive, worldwide, royalty-free copyright license to 
'reproduce its contribution, prepare derivative works of its 
'contribution, and distribute its contribution or any derivative works 
'that you create. 

'(B) Patent Grant- Subject to the terms of this license, including the 
'license conditions and limitations in section 3, each contributor grants 
'you a non-exclusive, worldwide, royalty-free license under its licensed 
'patents to make, have made, use, sell, offer for sale, import, and/or 
'otherwise dispose of its contribution in the software or derivative 
'works of the contribution in the software. 

'3. Conditions and Limitations 

'(A) No Trademark License- This license does not grant you rights to use 
'any contributors' name, logo, or trademarks. 

'(B) If you bring a patent claim against any contributor over patents 
'that you claim are infringed by the software, your patent license from 
'such contributor to the software ends automatically. 

'(C) If you distribute any portion of the software, you must retain all 
'copyright, patent, trademark, and attribution notices that are present 
'in the software. 

'(D) If you distribute any portion of the software in source code form, 
'you may do so only under this license by including a complete copy of 
'this license with your distribution. If you distribute any portion of 
'the software in compiled or object code form, you may only do so under a 
'license that complies with this license. 

'(E) The software is licensed "as-is." You bear the risk of using it. The 
'contributors give no express warranties, guarantees or conditions. You 
'may have additional consumer rights under your local laws which this 
'license cannot change. To the extent permitted under your local laws, 
'the contributors exclude the implied warranties of merchantability, 
'fitness for a particular purpose and non-infringement.

#End Region

#Region "Options"

Option Strict On
Option Explicit On

#End Region

#Region "Imports"

'From .Net Framework 3.5
Imports Microsoft.Drawing
Imports System.Drawing
Imports System.IO

'From Custom Classes/Reference
'None

#End Region

Namespace DrawingCEEx.SenseAPIsEx

    Public Class SenseSettings

        Public Shared Function CreateFolder(ByVal Path As String) As Boolean

            Try

                If Not System.IO.Directory.Exists(Path) Then

                    System.IO.Directory.CreateDirectory(Path)

                    Return True

                End If

            Catch ex As Exception

                Return False

            End Try

        End Function

        Public Shared Function CreateFile(ByVal Path As String) As Boolean

            Try

                If Not System.IO.File.Exists(Path) Then

                    Dim _file As System.IO.FileStream = Nothing

                    _file = System.IO.File.Create(Path)
                    _file.Close()
                    _file = Nothing

                    Return True

                End If

            Catch ex As Exception

                Return False

            End Try

        End Function

        Public Shared Function WriteText(ByVal Path As String, ByVal Value As String) As Boolean

            Try

                If System.IO.File.Exists(Path) Then

                    Dim objWriter As New System.IO.StreamWriter(Path, True)
                    objWriter.WriteLine(Value)
                    objWriter.Close()
                    objWriter = Nothing

                    Return True

                Else

                    Return False

                End If

            Catch ex As Exception

                Return False

            End Try

        End Function

        Public Shared Function GetExecutablePath() As String

            Return System.Reflection.Assembly.GetExecutingAssembly().GetName().CodeBase.Substring(0, System.Reflection.Assembly.GetExecutingAssembly().GetName().CodeBase.LastIndexOf("\")) & "\"

        End Function

        Public Shared Function GetExecutableLogPath() As String

            Return System.Reflection.Assembly.GetExecutingAssembly().GetName().CodeBase.Substring(0, System.Reflection.Assembly.GetExecutingAssembly().GetName().CodeBase.LastIndexOf("\")) & "\Logs\"

        End Function

    End Class

End Namespace


